home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2003 WWD 2.xpl < prev    next >
Text File  |  2004-01-27  |  2KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2003\Word"
  5. "NAME"="Reading Layout ClearType"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Activate ClearType in reading layout"
  9. "DESCRIPTION 1"="Windows XP and upward support ClearType, a new display technology that increases the sharpness and the clarity of text when using a TFT display (see http://www.microsoft.com/typography/cleartype/)."
  10. "DESCRIPTION 2"="However, when using some "strange" fonts, the opposite might happen. The fonts don't look sharp but instead appear blurry on the screen. Of course you can display ClearType altogether, but you might just disable it in Word when using the Reading Layout view."
  11. "DESCRIPTION 3"="With this setting, you can do just that."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  15. "COMMENT 1"="Visit http://www.x-setup.net/"
  16. "COMMENT 2"="See http://support.microsoft.com/?kbid=822509"
  17.  
  18.  
  19. sPCheck="HKCU\Software\Microsoft\Office\11.0\Word\"
  20.     sV1="HKCU\Software\Microsoft\Office\11.0\Word\Options\NoClearTypeNW" 
  21.  
  22. Sub Plugin_Initialize 
  23. if RegPathExists(sPCheck) then
  24.    i=RegReadValue(sV1)
  25.    if IsEmpty(i)=true or i=0 then 
  26.       SetUIElement 1,true
  27.    end if
  28. else
  29.    Disable()
  30. end if
  31. END SUB
  32.  
  33. 'Called when the Plugin should validate the Data the user has entered
  34. SUB Plugin_CheckData(ElementIndex)
  35. END SUB
  36.  
  37. 'Called when the Plugin should apply the changes
  38. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  b=GetUIElement(1)
  40.  if b=true then
  41.     if RegValueExists(sV1) then Call RegDeleteValue(sV1)
  42.  else
  43.     Call RegWriteValue(sV1,1,2)
  44.  end if
  45.  
  46.  
  47. END SUB
  48.  
  49. 'Called when the Plugin is about to be removed from memory
  50. SUB Plugin_Terminate
  51. END SUB
  52.